home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 73
/
PCMania CD73_1.iso
/
sharewar
/
utiles
/
dlsupcbf
/
DLSupCBF.exe
/
0
/
RCDATA
/
TFRMULNM
/
TFRMULNM.txt
Wrap
Text File
|
1998-09-02
|
16KB
|
555 lines
object FrmULNm: TFrmULNm
Left = 224
Top = 133
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption =
'DLSupCBF File Selection of Unlike/Like Named Pairs for Compariso' +
'n'
ClientHeight = 409
ClientWidth = 484
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
TextHeight = 13
object ULNPLbl: TLabel
Left = 8
Top = 4
Width = 66
Height = 14
Caption = 'New Dir Nm:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ULOPLbl: TLabel
Left = 8
Top = 22
Width = 66
Height = 14
Caption = 'Old Dir Nm:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ULNumSelTit: TLabel
Left = 4
Top = 385
Width = 100
Height = 14
Caption = '# Selected File Pairs:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULNPathTit: TLabel
Left = 8
Top = 79
Width = 56
Height = 14
Hint = 'New file names from New Dir '
Caption = 'New Files:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULOPathTit: TLabel
Left = 251
Top = 79
Width = 50
Height = 14
Hint = 'Old file names from Old Dir '
Caption = 'Old Files:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULONumFTit: TLabel
Left = 254
Top = 193
Width = 53
Height = 14
Hint = 'Count of Old file names in Old file list'
Caption = '# Old Files:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULNFilterTit: TLabel
Left = 10
Top = 37
Width = 80
Height = 14
Caption = 'New File Filter:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ULNCompTit: TLabel
Left = 10
Top = 209
Width = 117
Height = 14
Hint = 'Contains eligible new file name to be transfered'
Caption = 'New File Component:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULNNumFTit: TLabel
Left = 11
Top = 193
Width = 60
Height = 14
Hint = 'Count of Old file names in New file list'
Caption = '# New Files:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULSelTit: TLabel
Left = 3
Top = 262
Width = 97
Height = 14
Hint = 'New/Old selected File pair to be compared'
Caption = 'Selected File Pair:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULOCompTit: TLabel
Left = 255
Top = 209
Width = 111
Height = 14
Hint = 'Contains eligible old file name to be transfered'
Caption = 'Old File Component:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object ULOFilterTit: TLabel
Left = 254
Top = 37
Width = 74
Height = 14
Caption = 'Old File Filter:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ULNNumFVal: TLabel
Left = 83
Top = 193
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ULONumFVal: TLabel
Left = 312
Top = 193
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ULSelNumVal: TLabel
Left = 111
Top = 385
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ULNPVal: TLabel
Left = 89
Top = 4
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ULOPVal: TLabel
Left = 89
Top = 22
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ULNNumSelVal: TLabel
Left = 107
Top = 385
Width = 3
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ULSelArrowImg1: TSpeedButton
Left = 185
Top = 200
Width = 25
Height = 19
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333FF333333333333300333333333
33333773FF33333333333090033333333333373773FF33333333330990033333
3333337F3773FF33333333099990033333333373F33773FFF333333099999007
33333337F33337773333333099999903333333373F3333733333333309999033
333333337F3337F333333333099990733333333373F3F77F3333333330900907
3333333337F77F77F33333333003709073333333377377F77F33333337333709
073333333733377F77F33333333333709033333333333377F7F3333333333337
0733333333333337773333333333333333333333333333333333}
NumGlyphs = 2
end
object ULSelArrowImg2: TSpeedButton
Left = 433
Top = 200
Width = 25
Height = 19
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333FF333333333333300333333333
33333773FF33333333333090033333333333373773FF33333333330990033333
3333337F3773FF33333333099990033333333373F33773FFF333333099999007
33333337F33337773333333099999903333333373F3333733333333309999033
333333337F3337F333333333099990733333333373F3F77F3333333330900907
3333333337F77F77F33333333003709073333333377377F77F33333337333709
073333333733377F77F33333333333709033333333333377F7F3333333333337
0733333333333337773333333333333333333333333333333333}
NumGlyphs = 2
end
object ULSelListBox: TListBox
Left = 3
Top = 279
Width = 326
Height = 103
ItemHeight = 13
MultiSelect = True
TabOrder = 0
end
object ULNFileEd: TEdit
Left = 9
Top = 224
Width = 180
Height = 21
ReadOnly = True
TabOrder = 1
Text = '*.*'
end
object ULOFileEd: TEdit
Left = 253
Top = 224
Width = 183
Height = 21
ReadOnly = True
TabOrder = 2
Text = '*.*'
end
object ULSelArrowBut: TBitBtn
Left = 148
Top = 250
Width = 143
Height = 25
Caption = 'Select New-Old &Pair'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = ULSelArrowButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333300033333333333337773333333}
NumGlyphs = 2
end
object ULStartBtn: TBitBtn
Left = 348
Top = 263
Width = 131
Height = 31
Hint = 'Start the compare of the "Selected File Pairs"'
Caption = '&Start Compare '
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = ULStartBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object ULUndoBtn: TBitBtn
Left = 348
Top = 298
Width = 131
Height = 31
Hint = 'Remove the highlighted file pair'
Caption = '&Undo Highlighted'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = ULUndoBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object ULReturnBtn: TBitBtn
Left = 348
Top = 369
Width = 131
Height = 31
Hint = 'Return to Main Tabbed Panel'
Caption = ' &Return'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object ULDirListBoxN: TDirectoryListBox
Left = 32
Top = 309
Width = 145
Height = 49
FileList = ULFListBoxN
ItemHeight = 16
TabOrder = 8
Visible = False
end
object ULDirListBoxO: TDirectoryListBox
Left = 194
Top = 309
Width = 145
Height = 49
FileList = ULFListBoxO
ItemHeight = 16
TabOrder = 9
Visible = False
end
object ULLookUpBut: TBitBtn
Left = 348
Top = 334
Width = 133
Height = 31
Hint = 'Transfer to the Dir Lookup Assist Panel'
Caption = '&Dir LookUp ...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = ULLookUpButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F773333333333330033333333333333773333333333333}
NumGlyphs = 2
end
object ULFListBoxN: TFileListBox
Left = 8
Top = 93
Width = 201
Height = 96
FileEdit = ULNFileEd
FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
ItemHeight = 13
TabOrder = 10
end
object ULFListBoxO: TFileListBox
Left = 253
Top = 93
Width = 201
Height = 96
FileEdit = ULOFileEd
FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
ItemHeight = 13
TabOrder = 11
end
object ULEdFilterO: TEdit
Left = 253
Top = 55
Width = 198
Height = 21
TabOrder = 12
Text = '*.*'
OnKeyPress = ULEdFilterOKeyPress
end
object ULEdFilterN: TEdit
Left = 8
Top = 56
Width = 199
Height = 21
TabOrder = 13
Text = '*.*'
OnKeyPress = ULEdFilterNKeyPress
end
end